home *** CD-ROM | disk | FTP | other *** search
/ The PC-SIG Library 9 / The PC-SIG Library on CD ROM - Ninth Edition.iso / 001_100 / DISK0047 / DISK0047.ZIP / GDUMP2.BAS < prev    next >
BASIC Source File  |  1982-07-17  |  640b  |  26 lines
  1. 10 CLEAR
  2. 20 B7%=128:B6%=64:B5%=32:B4%=16:B3%=8:B2%=4:B1%=2:B0%=1
  3. 30 LPRINT CHR$(27)"@": WIDTH "LPT1:",255
  4. 40 DIM X%(8),B%(650)
  5. 50  FOR Y%= 0 TO 191 STEP 8
  6. 60 FOR X%= 0 TO 639
  7. 70 FOR I%= 0 TO 7
  8. 80  X%(I%) = POINT(X%, Y%+I%)
  9. 90 NEXT I%
  10. 100 B%(X%)=X%(0)*B7%+X%(1)*B6%+X%(2)*B5%+X%(3)*B4%+X%(4)*B3%+X%(5)*B2%+X%(6)*B1%+X%(7)*B0%
  11. 110 NEXT X%
  12. 120 LPRINT CHR$(27);"L";CHR$(127);CHR$(2);
  13. 130 FOR J%= 0 TO 639
  14. 140 LPRINT CHR$((B%(J%)));
  15. 150 NEXT J%
  16. 160 LPRINT CHR$(27) "A"  CHR$(8)
  17. 170 NEXT Y%
  18. 180  END
  19. $(2);
  20. 130 FOR J%= 0 TO 639
  21. 140 LPRINT CHR$((B%(J%)));
  22. 150 NEXT J%
  23. 160 LPRINT CHR$(27) "A"  CHR$(8)
  24. 170 NEXT Y%
  25. 180  END
  26.